home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / zebu v3.3.3 (LALR parser) / test / avm-printers.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  1.4 KB  |  49 lines  |  [TEXT/ttxt]
  1. ; -*- mode:     CL -*- ----------------------------------------------------- ;
  2. ; File:         av-printers.l
  3. ; Description:  
  4. ; Author:       Joachim H. Laubsch
  5. ; Created:      13-Apr-92
  6. ; Modified:     Mon Apr 26 16:58:14 1993 (Joachim H. Laubsch)
  7. ; Language:     CL
  8. ; Package:      CL-USER
  9. ; Status:       Experimental (Do Not Distribute) 
  10. ; RCS $Header: $
  11. ;
  12. ; (c) Copyright 1992, Hewlett-Packard Company
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ; Revisions:
  15. ; RCS $Log: $
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. (in-package "CL-USER")
  18.  
  19. (defun print-FEAT-TERM (ITEM STREAM LEVEL)
  20.   (DECLARE (IGNORE LEVEL))
  21.   (format STREAM
  22.       "~@[type: ~S ~][~{~S~^ ~}]"
  23.       (FEAT-TERM--type ITEM)
  24.       (FEAT-TERM--slots ITEM)))
  25.  
  26. (defun print-General-Var (ITEM STREAM LEVEL)
  27.   (DECLARE (IGNORE LEVEL))
  28.   (format STREAM
  29.       "%~S"
  30.       (General-Var--name ITEM)))
  31.  
  32. (defun print-Label-value-pair (ITEM STREAM LEVEL)
  33.   (DECLARE (IGNORE LEVEL))
  34.   (format STREAM
  35.       "(~S ~S)"
  36.       (Label-value-pair--label ITEM)
  37.       (Label-value-pair--value ITEM)))
  38.  
  39. (defun PRINT-TAGGED-TERM (ITEM STREAM LEVEL)
  40.   (DECLARE (IGNORE LEVEL))
  41.   (format STREAM
  42.       "~S=~S"
  43.       (Tagged-Term--tag ITEM)
  44.       (Tagged-Term--term ITEM)))
  45.  
  46. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  47. ;;                            End of av-printers.l
  48. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  49.